SUBROUTINE OUTINF
C THIS IS A DUMMY IN 2-PART SCORE PROGRAM
	RETURN
	END

	SUBROUTINE RUNIT
	COMMON J,L /Q/ BNW(200),NWZ /INS/RINST(27),BG(60) /JPREC/JPREC
	1 /VV/LIMIT,V(1) /A/NP(27),XT(27),FRM(80),INVIS(27)
	COMMON /DUR/DUR(27) /NUMP/NUMP
	1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG
	COMMON/B/MOT,PR,T5,NINS,I,RA,KZY,NWX,INONLY,MX,Y,Z,FNAME,
	1 MZ,N,IDALL  /D/TF,AMPFAC,OP1,DURX,IXIN,FLNM
	COMMON /DEVS/ID1,ID21,JTYPE,ID23,ID20
 
10	WRITE(ID1)FLNM,I,NWZ,NINS,IDALL,BY,JPREC,KZY,LIMIT,NUMP
	WRITE(ID1)(RINST(K),K=1,NINS),(DUR(K),K=1,NINS),(NP(K),K=1,NINS)
	1,(BG(K),K=1,NINS),(BNW(K),K=1,NWZ),(V(K),K=1,I),
	1(INVIS(K),K=1,NINS)
	WRITE(JTYPE,1)FLNM,I,NWZ,NINS
	WRITE(JTYPE,2)(RINST(K),K=1,NINS)
	WRITE(JTYPE,21)(NP(K),K=1,NINS)
	WRITE(JTYPE,30)(BG(K),K=1,NINS)
	WRITE(JTYPE,3)(DUR(K),K=1,NINS)
	WRITE(JTYPE,4)(BNW(K),K=1,NWZ)
CC	WRITE(JTYPE,5)
	N=1
	WRITE(JTYPE,6)
	READ(JTYPE,20)X
	IF(X.NE.0)GO TO 22
223	WRITE(JTYPE,222)
	CALL EXIT
222	FORMAT(' **** NOW RUN SC2 ****')
22	K=N+1
	IF(N.GE.I)GO TO 223
	X=V(N)
	IF(X.EQ.-199.)GO TO 24
	IF(X.EQ.-99.)GO TO 24
	IF(X.GE.0)GO TO 23
	WRITE(JTYPE,20)X
	N=N+1
	GO TO 22
24	J=N+1
	GO TO 25
C  FOR 'SECTIONS'
23	J=ABS(V(K))+K-1
25	WRITE(JTYPE,20)(V(K),K=N,J)
	N=J+1
	GO TO 22
1	FORMAT(/' FILE NAME=',A4,'  I=',I4,'   NWZ=',I3,'   NINS=',I2/)
2	FORMAT(' INSTS=',27(A4,1X)/)
21	FORMAT(' NUM.PARAMS=',27I2/)
3	FORMAT(' DURS=',27F7.2/)
30	FORMAT(' BG TIMES=',27F7.2/)
4	FORMAT(' BNWS=',27F7.2/)
5	FORMAT(' V ARRAY='/)
6	FORMAT(' TYPE <CR> (OR 1 TO SEE V ARRAY)  '$)
20    FORMAT(10F12.3)
	END